program main
    implicit none
    logical :: A = .true.
    write(*,*) '  A :',A
!    write(*,*) 'A-1 :',A-1
!	write(*,*) 'A+0 :',A+0
!	write(*,*) 'A+1 :',A+1
!	write(*,*) 'A+2 :',A+2
	stop
end program main
